home *** CD-ROM | disk | FTP | other *** search
/ The Netter Presenter: Ur…ion in Overactive Bladder / The Netter Presenter: Urinary System - Structure & Function in Overactive Bladder.iso / mac / UrinarySystem.app / Contents / Main.dxr / Internal_9_Label-line functions.ls < prev    next >
Encoding:
Text File  |  2005-01-18  |  3.1 KB  |  130 lines
  1. global gLabelChannel, gLineChannel, gLabelState, gLineState, gLabelLock, gLineLock, glImageList, glSelectedLabels, glSelectedLines, gPreviewMode, glImageMap, gblack, ggreen, gred, gredx
  2.  
  3. on ToggleLabelDisplay
  4.   if gLabelState = #off then
  5.     gLabelState = #on
  6.     repeat with x = gLabelChannel to gLabelChannel + 99
  7.       if not (sprite(x).member.type = #empty) then
  8.         sprite(x).visible = 1
  9.         sprite(x).member.foreColor = 255
  10.       end if
  11.     end repeat
  12.   else
  13.     gLabelState = #off
  14.     repeat with x = gLabelChannel to gLabelChannel + 99
  15.       sprite(x).visible = 0
  16.     end repeat
  17.   end if
  18.   glSelectedLabels = []
  19.   updateStage()
  20. end
  21.  
  22. on ToggleLineDisplay
  23.   if gLineState = #off then
  24.     gLineState = #on
  25.     repeat with x = gLineChannel to gLineChannel + 99
  26.       if not (sprite(x).member.type = #empty) then
  27.         sprite(x).visible = 1
  28.         if sprite(x).member.strokeColor <> ggreen then
  29.           sprite(x).member.strokeColor = gblack
  30.         end if
  31.       end if
  32.     end repeat
  33.   else
  34.     gLineState = #off
  35.     repeat with x = gLineChannel to gLineChannel + 99
  36.       sprite(x).visible = 0
  37.     end repeat
  38.   end if
  39.   glSelectedLines = []
  40.   updateStage()
  41. end
  42.  
  43. on DisplayLabels
  44.   repeat with x = gLabelChannel to gLabelChannel + 99
  45.     if not (sprite(x).member.type = #empty) then
  46.       sprite(x).visible = 1
  47.       sprite(x).member.foreColor = 255
  48.     end if
  49.   end repeat
  50.   updateStage()
  51. end
  52.  
  53. on DisplayLines
  54.   repeat with x = gLineChannel to gLineChannel + 99
  55.     if not (sprite(x).member.type = #empty) then
  56.       sprite(x).visible = 1
  57.       if sprite(x).member.strokeColor <> ggreen then
  58.         sprite(x).member.strokeColor = gblack
  59.       end if
  60.     end if
  61.   end repeat
  62.   updateStage()
  63. end
  64.  
  65. on deSelectAllLabels
  66.   if gPreviewMode then
  67.     exit
  68.   end if
  69.   glSelectedLabels = []
  70.   repeat with x = gLabelChannel to gLabelChannel + 99
  71.     if sprite(x).member.type = #text then
  72.       sprite(x).member.foreColor = 255
  73.     end if
  74.   end repeat
  75. end
  76.  
  77. on deSelectAllLines
  78.   if gPreviewMode then
  79.     exit
  80.   end if
  81.   glSelectedLines = []
  82.   repeat with y = gLineChannel to gLineChannel + 99
  83.     if sprite(y).member.type = #vectorShape then
  84.       case sprite(y).member.strokeColor of
  85.         gred:
  86.           sprite(y).member.strokeColor = gblack
  87.         gredx:
  88.           sprite(y).member.strokeColor = ggreen
  89.       end case
  90.     end if
  91.   end repeat
  92. end
  93.  
  94. on SelectAllLabels
  95.   if gPreviewMode then
  96.     exit
  97.   end if
  98.   gLabelState = #on
  99.   sendSprite(275, #SetONstate)
  100.   glSelectedLabels = []
  101.   repeat with x = gLabelChannel to gLabelChannel + 99
  102.     if sprite(x).member.type = #text then
  103.       append(glSelectedLabels, x)
  104.       sprite(x).member.foreColor = 35
  105.       sprite(x).visible = 1
  106.     end if
  107.   end repeat
  108. end
  109.  
  110. on SelectAllLines
  111.   if gPreviewMode then
  112.     exit
  113.   end if
  114.   gLineState = #on
  115.   sendSprite(277, #SetONstate)
  116.   glSelectedLines = []
  117.   repeat with y = gLineChannel to gLineChannel + 99
  118.     if sprite(y).member.type = #vectorShape then
  119.       append(glSelectedLines, y)
  120.       case sprite(y).member.strokeColor of
  121.         gblack:
  122.           sprite(y).member.strokeColor = gred
  123.         ggreen:
  124.           sprite(y).member.strokeColor = gredx
  125.       end case
  126.       sprite(y).visible = 1
  127.     end if
  128.   end repeat
  129. end
  130.